getwd()
setwd("D:/RClass")
load ("diabets.RData")
t = cut(diabets$GLU[diabets$Sex == "Female"],breaks = c(3.9,6.1))

table(t)

